home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of Shareware
/
Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso
/
mac
/
DOS
/
UTILITY
/
BATUTIL
/
BU40SMLL.EXE
/
EQUIP.BAT
< prev
next >
Wrap
DOS Batch File
|
1991-12-23
|
2KB
|
87 lines
:Batutil c(o) 1990, 1991 Barry Simon and Richard Wilson
: Version 4.0
echo off
cls
batutil {inc %0 code}
goto end
:echo1
Welcome to the @1FBATUTIL@1E equipment reading demo
This demonstration will show how BATUTIL
can give you information on your system
:echo2
Here is what BATUTIL found when it examined your machine
Your CPU is $1.
Your math coprocessor is $2.
You have $3 printer ports, $4 comm ports and $5 game ports.
You have $6 floppy drives and $7 monitor(s).
Your active monitor is $8.
You do$9 have an ANSI driver and you do$é have an enyukked keyboard.
Your DOS version is $V($â/10).$V($â\10).
Your LIM Ver is $V($ä/10).$V($ä\10) (0.0 means no LIM).
Your Carousel partition is $à (0 means no Carousel).
Your Desqview partition is $å (0 means no Desqview).
Your free DOS memory is $V(4*$ê) K, your total LIM memory rounded to 64K
is $V($ë*64)K and your free LIM is $V(16*$è)K [$V(16*199) = $V(16*199) or more].
You have $ï DOS file handles and $ç DOS buffers.
This is only some of the information that BATUTIL can access. You can also
find out if a file exists on your path, whether a file has today's date
and even compare two files to see which is older.
Hit a key to exit the equipment demo and thanks for using BATUTIL.
:code
{CU -}{RC $}{CLS}{RO 5}{CO 5}{FP %0 echo1}
{RO +2}{CO 5}{EC One moment while I check out your system!}{GE WA3}
{#I}{$1=$r}
case $1 of
20: $1=NEC V86
0: $1=8086/8088
1: $1=80186
2: $1=80286
3: $1=80386
endcase
{#P}{$3=$r}
{@I}{$2=$r}
case $2 of
0: $2=none
1: $2=8087
2: $2=80287
3: $2=80387
4: $2=80487
endcase
{#C}{$4=$r}
{#G}{$5=$r}
{#F}{$6=$r}
{#T}{$7=$r}
{#W}
case $r of
1: $8=monochrome (non-Hercules)
2: $8=cga$Scolor
4: $8=ega$Scolor
5: $8=ega$Smono
6: $8=prof.$Sgraphics
7: $8=vga$Smono
8: $8=vga$Scolor
11: $8=mcga$Smono
12: $8=mcga$Scolor
21: $8=hercules$Smono
22: $8=hercules$Smonochrome$Splus
23: $8=hercules$SIncolor
endcase
{@A} if $r=1 then $9= else $9=not
{#K} if $r=1 then $é= else $é=not
{DO}{$â=$r}
{LI}{$ä=$r}
{CA}{$à=$r}
{DV}{$å=$r}
{@M}{$ê=$r}
{#L}{$ë=$r}
{@L}{$è=$r}
{DO F}{$ï=$r}
{DO B}{$ç=$r}
{CL}{FE %0 echo2}{GE EL}{EC $_}
:end